|
使用 ADO
VB 加油站 特别奉献 By Ken Jin
在使用ADO 之前，也许你还没找到它。那么，它就在 IIS 3 或以上，OLE
DB SDK 中，或者是Microsoft Transaction Server。
在VB应用中使用
VB可以有两种方式来建立ADO对象。
1． 在 工程 菜单中选择 引用，找到带 ADO
的东东，选上。接着就可以在程序中使用啦：
Dim cn as New ADODB.Connection
Dim cmd as New ADODB.Command
Dim rs as New ADODB.Recordset
2． 使用 CreatObject 在运行时建立对象。可以建立的对象有：ADODB.Connection，ADODB.Command，和
ADODB.Recordset：
Set rs=CreateObject("ADODB.Recordset")
我一般使用第一种方式。
在VBScript 网页中使用
ADO 也可以在 VBScript 中使用，前提是服务器必须支持 ASP。其次是要求所有的代码在服务器端执行，也就是说是代码要包括在
<% 和 %> 标记中。使用前面所提的第二种方法来建立对象。ADO
在网页上的表现是又好用，又快速，唯一的缺陷是调试麻烦。
下面是一个例子，如果看不懂的话，也不奇怪。因为这是由微软提供的:)。
该例子的在主页上显示一个客户名字清单的表格。
<%@ LANGUAGE = VBScript %>
<HTML>
<TITLE>Using ADO in a Visual Basic Script Web Page</TITLE>
</HEAD>
<LANGUAGE="VBS">
<!--#include file="adovbs.inc"-->
<CENTER>
<H1><font size=4>Using ADO in a Visual Basic Script Web
Page</H1></font><br><br>
<%set myConnection = CreateObject("ADODB.Connection")
myConnection.Open "DSN=pubs;UID=sa"
SQLQuery = "SELECT title_id,title FROM titles"
set RSTitleList = myConnection.Execute(SQLQuery)%>
<TABLE align=center COLSPAN=8 CELLPADDING=5 BORDER=0 WIDTH=200>
<!-- BEGIN column header row -->
<TR>
<TD VALIGN=TOP BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>
Title ID</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>
Title</FONT>
</TD>
</TR>
<!-- Get Data -->
<% do while not RStitleList.EOF %>
<TR>
<TD BGcolor ="f7efde" align=center><font style
="arial narrow" size=1>
<%=RStitleList("title_id")%></font>
</TD>
<TD BGcolor ="f7efde" align=center><font style
="arial narrow" size=1>
<%=RSTitleList("title") %>
</font>
</TD>
</TR>
<% RSTitleList.MoveNext%>
<%loop %>
<!-- Next Row -->
</TABLE>
</center>
</BODY>
</HTML>
当然，也可以在 C++ 和 Java 中使用ADO。只是我没用过，不说啦。
更多的资料可以在 ASP 的Roadmap 中得到。
| 
